home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / hyperbo2.dms / in.adf / Applications / Words.hb (.txt) < prev    next >
Encoding:
HyperBook  |  1997-01-01  |  9.5 KB  |  169 lines
  1. ^list = searchname('1:','Word list')
  2. n = clone(searchname('0:','Template'),'0:')
  3. call setposition(n, 320, 120)
  4. cr   = '0a'X
  5. form = 'Word:' || cr || 'Part of speech:n' || cr || 'Definition:'
  6. define = inputform('Enter definition', form)
  7. if define = '' then exit
  8. parse var define  name '0a'X part '0a'X def
  9. call setname(n, name)
  10. yy = searchnote(n, 'Y', 0)
  11. zz = searchnote(n, 'Z', 0)
  12. call replacetext(n, def, zz, 1)
  13. call replacetext(n, part, yy, 1)
  14. call replacetext(n, name, 0, 1)
  15. call relocate(n, ':')
  16. it = appenditem(list, name, 1)
  17. call setactionpage(it, ':')
  18. call sortlist(list)
  19. call 'Set title'()
  20. F1_New definition
  21. C/* Make clicked on object taller/shorter... taller by clicking on its
  22.    right side; shorter by clicking on its left side.
  23. finished = 0
  24. do while finished = 0
  25.    y  = getclickrow('Left = smaller, right = bigger; click page to end')
  26.    x  = getcolumn()
  27.    if x = 0 then
  28.       call prevpage()
  29.    else if x = 639 then
  30.       call nextpage()
  31.    else do
  32.       ob = getobjectat(x,y)
  33.       if ob = '' then
  34.          finished = 1
  35.       else do
  36.          L = getleft(ob)
  37.          W = getwidth(ob)
  38.          M = L + W / 2
  39.          H = getheight(ob)
  40.          if x < M then do
  41.             if H > 41 then
  42.                call scaletosize(ob, 300, 41 + 9 * ((H - 42) % 9))
  43.             end
  44.          else do
  45.             if H < 185 then
  46.                call scaletosize(ob, 300, 41 + 9 * ((H - 32) % 9))
  47.             end
  48.          end
  49.       end
  50.    end
  51. F2_Set word heights
  52. left = 15
  53. top  =  11
  54. pg   = getpage(':')
  55. call interactive(0)
  56. do i = 1 to numelements(pg)
  57.    ob = pg || i
  58.    if gettype(ob) ~= 'Button' then do
  59.       call setposition(ob,left,top)
  60.       top = top + getheight(ob)
  61.       if top > 190 then do
  62.          top  = 11
  63.          left = 325
  64.          call setposition(ob,left,top)
  65.          top = top + getheight(ob)
  66.          end
  67.       top = top + 1
  68.       end
  69.    end
  70. F3_Organize page
  71. /* Delete a definition */
  72. ob   = inputobject('Select word to delete')
  73. list = searchname('1:', 'Word list')
  74. if ob = '' then EXIT
  75. it = searchitems(list, getname(ob))
  76. if it ~= '' then call delete(it)
  77. call delete(ob)
  78. call 'Set title'()
  79. F4_DeleteDefinition
  80. init = readnotetext(initiator(),0,1)
  81. pg = searchpagename('2:',readnotetext(initiator(),0,1))
  82. call callpage(pg)
  83. call PageEntryMacro
  84. Look up initial()
  85. list = searchname('1:','Word list')
  86. note = searchname('1:','Title')
  87. call cleartext(note)
  88. call inserttext(note, numelements(list) ' Curious  Words', 0)
  89. Set title()
  90. /* Page entry macro moves MagicReturnButton to current page */
  91. if sequencenumber(currentpage()) > 1 then do
  92.    btn = searchname('1:','MagicReturnButton')
  93.    call relocate(btn, ':')
  94.    end
  95. PageEntryMacro
  96. Test Notebook
  97. Group1
  98. "A->"
  99. "B->"
  100. "C->"
  101. "D->"
  102. "E->"
  103. "F->"
  104. "G->"
  105. "H->"
  106. "I->"
  107. "J->"
  108. "K->"
  109. "L->"
  110. "M->"
  111. "N->"
  112. "O->"
  113. "P->"
  114. "Q->"
  115. "R->"
  116. "S->"
  117. "T->"
  118. "U->"
  119. "V->"
  120. "W->"
  121. "X->"
  122. "Y->"
  123. "Z->"
  124. Group2
  125. %HB_Samples:Applications/WordsHelp.txt
  126. Drawing1
  127. Note1
  128. "Word list"
  129. apophthegm
  130. arris
  131. averruncator
  132. barouche
  133.     belvedere
  134. blewits
  135. calyx
  136. chignon
  137. coulter
  138. cullet
  139. demijohn
  140.     desuetude
  141.     electuary
  142. eleemosynary
  143. exiguous
  144.     expatiate
  145. expiate
  146. factitious
  147. faggot
  148. fascicle
  149. feckless
  150. fenks
  151. fipple
  152.     funicular
  153. geminate
  154. glacis
  155. glair
  156. glanders
  157. grampus
  158. gravamen
  159. hayward
  160. hebdomadal
  161.     ichneumon
  162. indite
  163. ineluctable
  164. irrecusable
  165. jejune
  166. jeroboam
  167. jezail
  168. kedgeree
  169.